﻿''' <summary>
''' 用户基本信息类
''' </summary>
''' <remarks></remarks>
Public Class UserItem

    Public uID As String = ""
    Public uName As String = ""
    Public roleID As Integer
    Public roleName As String

    Sub New()

    End Sub

    Sub New(ByVal id As String, ByVal name As String)
        uID = id
        uName = name
    End Sub

    Public Overrides Function ToString() As String
        Return uName
    End Function

    Public Overrides Function Equals(ByVal obj As Object) As Boolean
        If obj IsNot Nothing AndAlso obj IsNot DBNull.Value Then
            Return uID = CType(obj, UserItem).uID
        End If

        Return MyBase.Equals(obj)
    End Function
 

End Class
